{
Criar um algoritimo com o seguinte menu:
        1 - Ler 3 numeros
        2 - Exibir o maior valor
        3 - Exibir em ordem crescente
        4 - Sair
}

program aula03;
uses
   crt;
var
   v1, v2, v3: integer;
   opcao: char;
begin
   v1 := 0;
   v2 := 0;
   v3 := 0;
   opcao := '0';
   while opcao <> '9' do
   begin
      clrscr;
      writeln('1 - Ler 3 numeros ');
      writeln('2 - Exibir maior valor ');
      writeln('3 - Exibir em ordem crescente');
      writeln('9 - Sair');

      opcao := readkey;

      case opcao of
         '1': begin
                write ('Informe o primeiro valor: ');
                readln(v1);
                write ('Informe o segundo  valor: ');
                readln(v2);
                write ('Informe o terceiro valor: ');
                readln(v3);

                continue;
              end;

         '2': begin
                write('O maior valor e'': ');
                if ( v1 >= v2 ) and ( v1 >= v3 ) then
                   write(v1)
                else
                   if ( v2 > v1 ) and ( v2 >= v3 ) then
                      write(v2)
                   else
                      if ( v3 > v1 ) and ( v3 > v2 ) then
                         write(v3);

                readkey;

                continue;
              end;

         '3': begin
                writeln('Lista de numeros em ordem crescente: ');
                if ( v1 > v2 ) and ( v1 > v3 ) then
                begin
                   writeln('Valor 1: ', v1);
                   if v2 > v3 then
                   begin
                      writeln('Valor 2: ', v2);
                      writeln('Valor 3: ', v3);
                   end
                   else
                   begin
                      writeln('Valor 3: ', v3);
                      writeln('Valor 2: ', v2);
                   end;
                end
                else
                if ( v2 > v1 ) and ( v2 > v3 ) then
                begin
                   writeln('Valor 2: ', v2);
                   if v1 > v3 then
                   begin
                      writeln('Valor 1: ', v1);
                      writeln('Valor 3: ', v3);
                   end
                   else
                   begin
                      writeln('Valor 3: ', v3);
                      writeln('Valor 1: ', v1);
                   end;
                end
                else
                begin
                   writeln('Valor 3: ', v3);
                   if v1 > v2 then
                   begin
                      writeln('Valor 1: ', v1);
                      writeln('Valor 2: ', v2);
                   end
                   else
                   begin
                      writeln('Valor 2: ', v2);
                      writeln('Valor 1: ', v1);
                   end;
                end;

                readkey;

                continue;
              end;
      end;
   end;
end.